1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
;
; Assembly(MC68K, AMIGA): Hello, World!
;
SysBase = 4
OpenLibrary = -552
CloseLibrary = -414
PutStr = -948
LEA DosName,A1
MOVEQ #36,D0
MOVEA.L SysBase,A6
JSR OpenLibrary(A6)
TST.L D0
BEQ.S NoDos
MOVE.L #Hello,D1
MOVEA.L D0,A6
JSR PutStr(A6)
MOVEA.L A6,A1
MOVEA.L SysBase,A6
Enter to Rename, <Shift>+Enter to Preview